(perform-replace): Restore match data after read-event.

diff --git a/lisp/replace.el b/lisp/replace.el
index 67c020263521d643ad25695dff0736aa52f8a05b..99e8921a26c5be79d676693dad5c3fe4280bac77 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -646,6 +646,9 @@ which will run faster and probably do exactly what you want."
                (let ((message-log-max nil))
                  (message message from-string next-replacement))
                (setq key (read-event))
+               ;; Necessary in case something happens during read-event
+               ;; that clobbers the match data.
+               (store-match-data real-match-data)
                (setq key (vector key))
                (setq def (lookup-key map key))
                ;; Restore the match data while we process the command.